home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
BBS-Archive
/
Util
/
Workbench
/
appserver-3.01.lha
/
AppServerV3.01
/
IconKill.doc
< prev
next >
Wrap
Text File
|
1992-01-30
|
2KB
|
79 lines
IconKill
--------
NOTE ! WorkBech 2.0 of version 37.xxx or later required !!!
^^^^^^^^^^^^^^
IconKill is a small assembly language program that uses Delete (dos.library)
and DeleteDiskObject (icon.library) to delete a file along with it's icon.
Arguments
---------
IconKill takes only one argument, a filename without any wildcards.
The filename can be with or without ".info".
Error messages
--------------
None. The icon will disappear if the deletion was successful. Otherwise
it will stay.
No messages, because IconKill is mostly used with AppServer's Trasher
and it will call IconKill twice for a file and it would cause a lot
of messages...
Resident
--------
IconKill can be made resident. It helps a lot with the Trasher.
How does it work ?
------------------
So that you could easily make an own one. A better one... :-)
Cut off the possible ".info" in the filename.
Use Delete (dos.library) to kill the file (or dir).
If the file or dir doesn't exist after the deletion,
IconKill uses DeleteDiskObject (icon.library) to kill the icon.
Return
Else
If it is a file
Return. It was maybe protected...
Else
(If the dir window is open, there is a lock...)
Take a copy of the icon using GetDiskObject (icon.library)
Try to kill the icon
Try to kill the directory
If the directory was deleted
Return
Else
Put the icon back so that the user can notice the problem
End if
End if
End if
Problems
--------
IconKill can't kill a fake icon !!!!! (Created by "Show all files")
This bug/feature is at least in KS37.175. I have reported this to
bugs@commodore.com, so let's hope that they'll fix it...
Copyright and distribution
--------------------------
IconKill is Copyright © 1991 by Jarto Tarpio. It can be freely distributed
for non-commercial purposes.
Comments and bug-reports to:
Jarto Tarpio
Nikkarinkuja 2 A6
02600 Espoo
Finland
Internet e-mail: robin@vipunen.hut.fi or Jarto.Tarpio@hut.fi